home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DS-CD ROM 2 1993 August
/
DS CD-ROM 2.Ausgabe (August 1993).iso
/
programm
/
ds0248
/
twk16.inc
< prev
next >
Wrap
Text File
|
1992-02-27
|
1KB
|
40 lines
(************************************************)
(* *)
(* SuperVGA 16 BGI driver defines *)
(* Copyright (c) 1991 *)
(* Jordan Hargraphix Software *)
(* *)
(************************************************)
type DacPalette16 = array[0..15] of array[0..2] of Byte;
(* Dies sind die zur Zeit untertützten Modi *)
const
TWK704x528x16 = 0 (* 704x528x16 Tweaked VGA *)
TWK720x540x16 = 1 (* 720x540x16 Tweaked VGA *)
TWK736x552x16 = 2 (* 736x552x16 Tweaked VGA *)
TWK752x564x16 = 3 (* 752x564x16 Tweaked VGA *)
TWK784x588x16 = 4 (* 784x588x16 Tweaked VGA *)
TWK800x600x16 = 5 (* 800x600x16 Tweaked VGA *)
XNOR_PUT = 5;
NOR_PUT = 6;
NAND_PUT = 7;
TRANS_COPY_PUT = 8; (* Doesn't work on 16-color systems *)
(* Setvgapalette setzt die komplette 16-Farben-Palette *)
(* PalBuf enthält RGB-Werte für alle 16 Farben *)
(* R,G,B-Werte reichen von 0 bis 63 *)
procedure SetVGAPalette16(PalBuf : DacPalette16);
var
Reg : Registers;
begin
reg.ax := $1012;
reg.bx := 0;
reg.cx := 16;
reg.es := Seg(PalBuf);
reg.dx := Ofs(PalBuf);
intr($10,reg);
end;